home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 4: GNU Archives / Linux Cubed Series 4 - GNU Archives.iso / gnu / glibc-1.09 / glibc-1 / glibc-1.09.1 / time / scheck.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-07-18  |  1.2 KB  |  63 lines
  1. #ifndef lint
  2. #ifndef NOID
  3. static char    elsieid[] = "@(#)scheck.c    8.11";
  4. #endif /* !defined lint */
  5. #endif /* !defined NOID */
  6.  
  7. /*LINTLIBRARY*/
  8.  
  9. #include "private.h"
  10.  
  11. extern char *    imalloc P((int n));
  12. extern void    ifree P((char * p));
  13.  
  14. char *
  15. scheck(string, format)
  16. const char * const    string;
  17. const char * const    format;
  18. {
  19.     register char *        fbuf;
  20.     register const char *    fp;
  21.     register char *        tp;
  22.     register int        c;
  23.     register char *        result;
  24.     char            dummy;
  25.     static char        nada[1];
  26.  
  27.     result = nada;
  28.     if (string == NULL || format == NULL)
  29.         return result;
  30.     fbuf = imalloc(2 * strlen(format) + 4);
  31.     if (fbuf == NULL)
  32.         return result;
  33.     fp = format;
  34.     tp = fbuf;
  35.     while ((*tp++ = c = *fp++) != '\0') {
  36.         if (c != '%')
  37.             continue;
  38.         if (*fp == '%') {
  39.             *tp++ = *fp++;
  40.             continue;
  41.         }
  42.         *tp++ = '*';
  43.         if (*fp == '*')
  44.             ++fp;
  45.         while (isascii(*fp) && isdigit(*fp))
  46.             *tp++ = *fp++;
  47.         if (*fp == 'l' || *fp == 'h')
  48.             *tp++ = *fp++;
  49.         else if (*fp == '[')
  50.             do *tp++ = *fp++;
  51.                 while (*fp != '\0' && *fp != ']');
  52.         if ((*tp++ = *fp++) == '\0')
  53.             break;
  54.     }
  55.     *(tp - 1) = '%';
  56.     *tp++ = 'c';
  57.     *tp = '\0';
  58.     if (sscanf(string, fbuf, &dummy) != 1)
  59.         result = (char *) format;
  60.     ifree(fbuf);
  61.     return result;
  62. }
  63.